100 POKE53280,3:POKE53281,1:POKE646,6
110 PRINTCHR$(147)+CHR$(8)+CHR$(142)
120 PRINT" SCRATCHSCHUTZ"
130 PRINT:PRINT" (C)  1985"
140 PRINT:PRINT" BY HENRYSOFT"
145 PRINT:PRINT" GREETINGS TO KSV"
150 PRINT:PRINT"  DISK EINLEGEN & SPACE "
160 WAIT197,60:POKE198,0
170 CLOSE15:OPEN15,8,15,"I0":GOSUB560:IFER<>0THEN150
180 CLOSE8:OPEN8,8,8,"#"
190 PRINT#15,"U1:";8;0;18;1:PRINT#15,"U2:";8;0;18;1:GOSUB560
200 IFER=26THENPRINT:PRINT"  SCHREIBSCHUTZ ENFERNEN [146]":GOTO150
210 PRINT:PRINT:T=18:S=1
220 PRINT#15,"U1:";8;0;T;S:GOSUB560
230 PRINT#15,"B-P:";8;0
240 GET#8,NT$,NS$
250 NT=0:IFNT$<>""THENNT=ASC(NT$)
260 NS=0:IFNS$<>""THENNS=ASC(NS$)
270 FORZ=2TO226STEP32
280 PRINT#15,"B-P:";8;Z+3
290 GET#8,N$:IFN$=""THEN530
300 PRINT#15,"B-P:";8;Z
310 GET#8,N$:IFN$=""THEN500
320 IFASC(N$)AND128=0THENGOTO500
330 PRINT#15,"B-P:";8;Z+3
340 FORZZ=1TO16:GET#8,N$:PRINTN$;:NEXT:PRINTTAB(18);
350 PRINT#15,"B-P:";8;Z
360 GET#8,N$:PT=ASC(N$):PS=PT AND64
370 IFPS=0THENPRINT"   FREI   [146]";
380 IFPS=64THENPRINT"GESCHUETZT";
390 PRINTTAB(29);"SCHUTZ J/N"
400 POKE198,0:WAIT198,1:GETN$
410 IFN$="J"THENPRINTTAB(29)"[145]   J A    [146]":GOTO460
420 IFN$="E"THENPRINT:GOTO530
430 IFN$="N"THENPRINTTAB(29)"[145]   NEIN   [146]":GOTO470
440 IFN$=" "THENPRINTTAB(29)"[145]UNVERAEND.":GOTO500
450 GOTO400
460 PT=PT OR64:GOTO480
470 PT=PT AND(255-64)
480 PRINT#15,"B-P:";8;Z
490 PRINT#8,CHR$(PT);
500 NEXTZ
510 PRINT#15,"U2:";8;0;T;S:GOSUB560
520 IFNT<>0THENT=NT:S=NS:GOTO220
530 PRINT#15,"U2:";8;0;T;S:GOSUB560
540 CLOSE8:CLOSE15
550 PRINT"ENDE.":END
560 INPUT#15,ER,ER$,ET,ES
570 IFER=0ORER=26THENRETURN
580 PRINT:PRINT" DISK-ERROR";ER;": ";ER$;" ,";ET;" ,";ES
590 RETURN